/* Copyright (C) 2000 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.

 The GNU C Library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation; either
 version 2.1 of the License, or (at your option) any later version.

 The GNU C Library is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 Lesser General Public License for more details.

 You should have received a copy of the GNU Lesser General Public
 License along with the GNU C Library; if not, write to the Free
 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 02111-1307 USA.  */

#include <locale.h>
#include <stdio.h>
#include <wchar.h>

/* Currently selected locale.  */
static const char *current_locale;


/* Test which should succeed.  */
static int
ok_test(int c, wint_t expwc)
{
	wint_t wc = btowc(c);

	if (wc != expwc) {
		printf(
			"%s: btowc('%c') failed, returned L'\\x%x' instead of L'\\x%x'\n",
			current_locale, c, wc, expwc);
		return 1;
	}

	return 0;
}


/* Test which should fail.  */
static int
fail_test(int c)
{
	wint_t wc = btowc(c);

	if (wc != WEOF) {
		printf("%s: btowc('%c') succeded, returned L'\\x%x' instead of WEOF\n",
			current_locale, c, wc);
		return 1;
	}

	return 0;
}


/* Test EOF handling.  */
static int
eof_test(void)
{
	wint_t wc = btowc(EOF);
	if (wc != WEOF) {
		printf("%s: btowc(EOF) returned L'\\x%x', not WEOF\n", current_locale,
			wc);
	}

	return 0;
}


/* Test the btowc() function for a few locales with known character sets.  */
int
main(void)
{
	int totalResult = 0;

	printf("WEOF=0x%08x\n", WEOF);
	printf("WCHAR_MIN=0x%08lx\n", WCHAR_MIN);
	printf("WCHAR_MAX=0x%08lx\n", WCHAR_MAX);

	current_locale = setlocale(LC_ALL, "C");
	if (current_locale == NULL) {
		puts("cannot set locale \"C\"");
		totalResult = 1;
	} else {
		int c;
		int result = 0;

		for (c = 0; c < 128; ++c)
			result |= ok_test(c, c);

		for (c = 128; c < 256; ++c)
			result |= fail_test(c);

		result |= eof_test();
		totalResult |= result;

		if (result == 0)
			printf("locale '%s' ok\n", current_locale);
	}

	current_locale = setlocale(LC_ALL, "en_US.ANSI_X3.4-1968");
	if (current_locale == NULL) {
		puts("cannot set locale \"en_US.ANSI_X3.4-1968\"");
		totalResult = 1;
	} else {
		int c;
		int result = 0;

		for (c = 0; c < 128; ++c)
			result |= ok_test(c, c);

		for (c = 128; c < 256; ++c)
			result |= fail_test(c);

		result |= eof_test();
		totalResult |= result;

		if (result == 0)
			printf("locale '%s' ok\n", current_locale);
	}

	current_locale = setlocale(LC_ALL, "de_DE.ISO-8859-1");
	if (current_locale == NULL) {
		puts("cannot set locale \"de_DE.ISO-8859-1\"");
		totalResult = 1;
	} else {
		int c;
		int result = 0;

		for (c = 0; c < 256; ++c)
			result |= ok_test(c, c);

		result |= eof_test();
		totalResult |= result;

		if (result == 0)
			printf("locale '%s' ok\n", current_locale);
	}

	current_locale = setlocale(LC_ALL, "de_DE.UTF-8");
	if (current_locale == NULL) {
		puts("cannot set locale \"de_DE.UTF-8\"");
		totalResult = 1;
	} else {
		int c;
		int result = 0;

		for (c = 0; c < 128; ++c)
			result |= ok_test(c, c);

		for (c = 128; c < 256; ++c)
			result |= fail_test(c);

		result |= eof_test();
		totalResult |= result;

		if (result == 0)
			printf("locale '%s' ok\n", current_locale);
	}

	current_locale = setlocale(LC_ALL, "hr_HR.ISO-8859-2");
	if (current_locale == NULL) {
		puts("cannot set locale \"hr_HR.ISO-8859-2\"");
		totalResult = 1;
	} else {
		static const wint_t upper_half[] = { 0x0104, 0x02D8, 0x0141, 0x00A4,
			0x013D, 0x015A, 0x00A7, 0x00A8, 0x0160, 0x015E, 0x0164, 0x0179,
			0x00AD, 0x017D, 0x017B, 0x00B0, 0x0105, 0x02DB, 0x0142, 0x00B4,
			0x013E, 0x015B, 0x02C7, 0x00B8, 0x0161, 0x015F, 0x0165, 0x017A,
			0x02DD, 0x017E, 0x017C, 0x0154, 0x00C1, 0x00C2, 0x0102, 0x00C4,
			0x0139, 0x0106, 0x00C7, 0x010C, 0x00C9, 0x0118, 0x00CB, 0x011A,
			0x00CD, 0x00CE, 0x010E, 0x0110, 0x0143, 0x0147, 0x00D3, 0x00D4,
			0x0150, 0x00D6, 0x00D7, 0x0158, 0x016E, 0x00DA, 0x0170, 0x00DC,
			0x00DD, 0x0162, 0x00DF, 0x0155, 0x00E1, 0x00E2, 0x0103, 0x00E4,
			0x013A, 0x0107, 0x00E7, 0x010D, 0x00E9, 0x0119, 0x00EB, 0x011B,
			0x00ED, 0x00EE, 0x010F, 0x0111, 0x0144, 0x0148, 0x00F3, 0x00F4,
			0x0151, 0x00F6, 0x00F7, 0x0159, 0x016F, 0x00FA, 0x0171, 0x00FC,
			0x00FD, 0x0163, 0x02D9 };
		int c;
		int result = 0;

		for (c = 0; c < 161; ++c)
			result |= ok_test(c, c);

		for (c = 161; c < 256; ++c)
			result |= ok_test(c, upper_half[c - 161]);

		result |= eof_test();
		totalResult |= result;

		if (result == 0)
			printf("locale '%s' ok\n", current_locale);
	}

	if (totalResult == 0)
		puts("all OK");

	return totalResult;
}
